Apple Reference & Presen…rary 8 (Internal Edition)/Apple R&P Lib Internal v8.0.iso/3-Presentations/Service⁄Support⁄Training/Self-Paced Training/Macintosh SE⁄30 Training/Macintosh SE⁄30/Macintosh SE_30/stack_-1.xml

Extensible Markup Language | 1988-12-18 | 8KB | 23 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>239</cardCount>
    <cardID>9977</cardID>
    <listID>129588</listID>
    <cantModify><true /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>--————————————————————————————————————————————————————————————————————--  Stack created for Apple Computer, Inc.--  Copyright © 1988 by Apple Computer, Inc.--  HyperCard construction — Chuck Walker.--  PopUpMenu XFCN by Andrew Gilmartin, Brown University--————————————————————————————————————————————————————————————————————--  Begin Stack Script  ——————————————————————————————————————————————--————————————————————————————————————————————————————————————————————on openStackif the version < 2.0 thenanswer "This stack requires HyperCard version 2.0" with¬"Continue" or "Home"if it is "Home" then go homeend ifput item 2 of the screenRect into screenTopif top of card window < screenTop + 20 then hide menuBarhide tool windowhide pattern windowhide msgresetMapend openStack--————————————————————————————————————————————————————————————————————on closeStackput "" into clicktimeput "" into checkeditemput "" into mapcleaningpass closeStackend closeStack--————————————————————————————————————————————————————————————————————--  intercept keyboard handlers:  ————————————————————————————————————--————————————————————————————————————————————————————————————————————--  same as clicking the arrow buttons  ——————————————————————————————on arrowKey whatKeyif whatKey = "Left" then click at 442,328if whatKey = "Right" then click at 469,328end arrowKey--  same as clicking the return button  ——————————————————————————————on returnKeyclick at 498,328end returnKey--  intercept enter key  —————————————————————————————————————————————on enterKeyend enterKey--————————————————————————————————————————————————————————————————————--  offer help to the lost  ——————————————————————————————————————————on mouseUpglobal clickTimeif the ticks - clickTime < 50 then exit mouseUpanswer "Click one of the Arrow buttons." with "Help" or "OK"if it is "Help" thenpush cardvisual dissolvego card "howToUse"else exit mouseUpend mouseUp--————————————————————————————————————————————————————————————————————-- disable certain menu options which are not appropriate  ———————————on domenu whatMenu                       --// Added by Medior, Inc. 3/13/91global RPStackNameif whatMenu is in "Message Find... Print Report... Last Prev Next" thenexit to HyperCardelse if (","& whatMenu &",") is in ",Home,Quit HyperCard," and RPStackName is not empty thenset cursor to 4put RPStackName into sNrepeat until offset(":",sN) = 0delete char 1 to offset(":",sN) of sNend repeatdelete last char of sNanswer "This will return to "&sN&"." with "Cancel" or "OK"if it is "Cancel" then exit domenuset cursor to 4lock screengo RPStackNameunlock screen with dissolve fastexit domenuelse pass doMenuend domenu--————————————————————————————————————————————————————————————————————-- popUp table of contents menu  —————————————————————————————————————on mainMenuglobal clickTime, checkedItemget the loc of card windowput item 1 of it into LeftWindput item 2 of it into TopWindget the rect of targetput item 1 of it into leftSideput item 4 of it into bottomSideput (TopWind + bottomSide +(checkedItem * 16) - 16) into hMenuLocput LeftWind + leftSide + 1 into vMenuLocget PopUpMenu(field "menuList" of card "Map", ¬checkedItem, hMenuLoc, vMenuLoc)if it = 1 thenpush cardgo card "Map"end ifif it = 2 thenpush cardgo card "howToUse"end ifif it = 4 then go card "content1"if it = 5 then go card "content2"if it = 6 then go card "content3"if it = 7 then go card "content4"if it = 8 then go card "content5"if it = 9 then go card "content6"if it = 10 then go card "content7"if it = 11 then go card "content8"if it = 13 thenpush cardgo card "content0"end ifif it = 14 thenpush cardgo card "index1"end ifif it = 16 then doMenu "Print Card"end mainMenu--————————————————————————————————————————————————————————————————————--  handler resets map to no footprints  —————————————————————————————on resetMapglobal mapCleaningput "true" into mapCleaninglock screenpush cardgo card "Map"put "" into fld "footprints"repeat with x = 1 to 12set the style of bkgnd button x to opaqueend repeatpop cardput "false" into mapCleaningunlock screenend resetMap--————————————————————————————————————————————————————————————————————--  timing for all animation events  —————————————————————————————————on runningPauserepeat 250if the mouse is down thenclick at the clicklocexit to HyperCardend ifend repeatend runningPause--————————————————————————————————————————————————————————————————————--  End Stack Script  ————————————————————————————————————————————————--————————————————————————————————————————————————————————————————————</script>
    <background id="3987" file="background_3987.xml" name="openBack" />
    <background id="23174" file="background_23174.xml" name="mainBack" />
    <background id="23808" file="background_23808.xml" name="helpBack" />
    <background id="24880" file="background_24880.xml" name="descBack" />
    <background id="28558" file="background_28558.xml" name="targetBack" />
    <background id="33307" file="background_33307.xml" name="benefitBack" />
    <background id="38590" file="background_38590.xml" na